Private Sub cmdClose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdClose.Click
    Close()
End Sub

Private Sub cmdFont_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdFont.Click
    dlgFontSelect.ShowDialog()
    rtfDisplay.Font = New System.Drawing.Font( _
                  FontDialog1.Font.Name, FontDialog1.Font.Size)
    rtfDisplay.Font = New System.Drawing.Font( _
                         rtfDisplay.Font(), dlgFileSelect.Bold)
End Sub

Private Sub cmdOpen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdOpen.Click)
    rtfDisplay.LoadFile(txtsourcefile.Text, _
                            RichTextBoxStreamType.PlainText)
End Sub

Private Sub cmdSourceFile_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdSourceFile.Click)
    dlgFileSelect.ShowDialog()
    txtsourcefile.Text = dlgFileSelect.FileName
End Sub
